From news-rocq!jussieu.fr!freenix!sunqbc.risq.qc.ca!wesley.videotron.net!wagner.videotron.net.POSTED!not-for-mail Mon Oct  9 14:07:56 2000
Article: 11787 of rec.games.corewar
Path: news-rocq!jussieu.fr!freenix!sunqbc.risq.qc.ca!wesley.videotron.net!wagner.videotron.net.POSTED!not-for-mail
From: "pk" <thida@videotron.ca>
Newsgroups: rec.games.corewar
Subject: KOFACOTO rnd1
Lines: 66
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Message-ID: <7PaE5.3157$j%6.57684@wagner.videotron.net>
Date: Sun, 8 Oct 2000 23:03:05 -0400
NNTP-Posting-Host: 24.201.247.245
X-Complaints-To: abuse@videotron.net
X-Trace: wagner.videotron.net 971061571 24.201.247.245 (Sun, 08 Oct 2000 23:19:31 EDT)
NNTP-Posting-Date: Sun, 08 Oct 2000 23:19:31 EDT
Xref: news-rocq rec.games.corewar:11787

This is my submission(just in case it didn't get through with emai l as it
did before)

WEll, nothing worked, and no time, i just took HSA, and fixed two bugs in
the version on planar'S page(two - missing)...

;redcode-94
;name He Scans Alone
;kill He Scans Alone
;author used by Paul-V Khuong(P.Kline)
;assert CORESIZE == 8000
;strategy 80% f-scanner switches from SPL to DAT carpet
;strategy I couldn't do what i wanted to do:a q^2 optimized against the
white warrior
;strategy followed by a clear, bc i had no time, and couldn't find why it
didn't work 8(
;strategy So, i submitted HSA(btw, the verion on planar's page has two "-"
signs missing)
;strategy The rules didn'T specify that i couldn't do it, and jurisprudence
was in me
;strategy favor, so i decided to submit "something"...
;strategy I'm sorry, bc i know it'S not as good as an original warrior

tPtr      dat    100 ,4100-4             ; widely-spaced pointers
          dat    0,0
          dat    0,0
          dat    0,0
          dat    0,0
          dat    0,0

tWipe     mov    tSpl     ,<tPtr         ; positive wipe of opponent
          mov    >tPtr    ,>tPtr
          jmn.f  tWipe    ,>tPtr

tScan     sub.x  #-12     ,tPtr          ; increment and look
          sne    *tPtr    ,@tPtr
          sub.x  *pScan   ,@tScan        ; increment and look
          jmn.f  tSelf    ,@tPtr
          jmz.f  tScan    ,*tPtr
pScan     mov.x  @tScan   ,@tScan        ; swap pointers for attack
tSelf     slt.b  @tScan   ,#tEnd-tPtr  ; self-check
          djn    tWipe    ,@tScan        ;   go to attack
          djn    *pScan   ,#13           ; after 13 self-scans
          jmp    *pScan   ,}tWipe        ;   switch to dat-wiping
          dat    0,0
tSpl      spl    #1,{1143*2+1
          dat    0,0
          dat    0,0
tEnd      dat 0,0
      for 61
          dat.f 0,0
      rof
tDecoy    equ    (tWipe-1196)
tStart    mov    <tDecoy,{tDecoy     ; make a quick-decoy
          mov    <tDecoy,{tDecoy     ; to foil one-shots
          mov    <tDecoy,{tDecoy     ; and the occasional q-scan
          djn.f  tScan  ,<tDecoy
          for 11
   dat.f 0,0
   rof
          end    tStart